home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / windex.com / WINDTEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1989-03-05  |  1.9 KB  |  74 lines
  1. PROGRAM WindTest;
  2. {to demonstrate the WINDEX.TPU}
  3.  
  4. USES
  5.  CRT,
  6.  WINDEX;
  7.  
  8. VAR
  9.  I        : INTEGER;
  10.  LastFree : LONGINT;
  11.  MoreJunk : STRING;
  12.  
  13. PROCEDURE Wait;
  14. VAR Junk:CHAR;
  15. BEGIN
  16.  WRITE('Press any key to continue'); Junk:=ReadKey; WRITELN;
  17. END;
  18.  
  19. PROCEDURE ShowMemoryUsage;
  20. BEGIN
  21.  WRITELN('This window used: ',LastFree-MemAvail:4,' bytes.');
  22.  LastFree:=MemAvail;
  23. END;
  24.  
  25. BEGIN
  26.  TextBackground(Black); ClrScr;
  27.  FOR I:=1 TO 15 DO {fill the screen with something to window over}
  28.  BEGIN
  29.   TextColor(I);
  30.   WRITELN('This will test the Windex.TPU from BlueRibbon Software -- Image saved on heap.');
  31.  END;
  32.  LastFree:=MemAvail;
  33.  ShowMemoryUsage; Wait;
  34.  OpenWindow(5,5,75,20,Black,LightGray,Double,' THIS IS A BIG WINDOW ',Ram); {w1}
  35.  ShowMemoryUsage; Wait;
  36.  OpenWindow(15,3,29,11,DarkGray,Green,Single,'small',Ram); {w2}
  37.  ShowMemoryUsage; WAIT;
  38.  OpenWindow(1,10,80,15,Yellow,Blue,240,' This one is rather wide ',Ram); {w3}
  39.  ShowMemoryUsage; Wait;
  40.  OpenWindow(50,1,60,25,LightGray,Red,32,' TALL ',Ram); {w4}
  41.  TextBackground(Magenta); ClrScr;
  42.  ShowMemoryUsage; Wait;
  43.  CloseWindow; {w4}
  44.  DELAY(500);
  45.  CloseWindow; {w3}
  46.  DELAY(500);
  47.  CloseWindow; {w2}
  48.  DELAY(500);
  49.  WRITELN('WE ARE BACK!');
  50.  WRITE('Well, don''t just gawk.. type something! ');
  51.  READLN(MoreJunk);
  52.  CloseWindow; {w1}
  53.  Wait;
  54.  ClrScr;
  55.  FOR I:=1 TO 6 DO {let's try a new base screen}
  56.  BEGIN
  57.   TextColor(I);
  58.   WRITELN('This image will be saved on DISK. With slight changes to the WINDOWS unit');
  59.   WRITELN('you could have dozens of open windows with no memory used!');
  60.   WRITELN;
  61.  END;
  62.  LastFree:=MemAvail;
  63.  ShowMemoryUsage; Wait;
  64.  OpenWindow(5,5,65,20,White,Red,1,' THIS IS A RED WINDOW ',Disk);
  65.  WRITELN;
  66.  FOR I:=1 TO 10 DO WRITELN('':10,'The maple leaf is glorious in the autumn!');
  67.  ShowMemoryUsage; Wait;
  68.  OpenWindow(15,3,30,22,Yellow,Blue,2,' BLUE ',Disk);
  69.  FOR I:=1 TO 13 DO WRITELN('  BlueRibbon');
  70.  ShowMemoryUsage; Wait;
  71.  CloseWindow;
  72.  WAIT;
  73.  CloseWindow;
  74. END.